home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ IE Options 2.xpl < prev    next >
Text File  |  2000-04-14  |  2KB  |  68 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="3"
  4. "UIPATH"="Internet\Internet Explorer\Other"
  5. "NAME"="AutoComplete Options"
  6. "LANGUAGE"="VBScript"
  7. "VERSION"="1.02"
  8. "TEXT 1"="Use AutoComplete for URLs and paths"
  9. "TEXT 2"="Use AutoComplete for web forms"
  10. "TEXT 3"="Use AutoComplete for passwords in web forms"
  11. "DESCRIPTION 1"="Internet Explorer has a feature called "AutoComplete". If this is activated, IE can automatically remember the entries that were entered in a web form. "
  12. "DESCRIPTION 2"="Although it is a powerful feature, it might lead to security-problems."
  13. "AUTHOR"="Xteq Systems"
  14. "CONTACTURL"="http://www.xteq.com"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "COMMENT 1"=" "
  17. "COMMENT 2"="Thanks to CptSiskoX (CptSiskoX@GeoCities.com) for this plug-in."
  18.  
  19.  
  20.  
  21. sV1="HKCU\Software\Microsoft\windows\CurrentVersion\Explorer\AutoComplete\AutoSuggest"
  22. sV2="HKCU\Software\Microsoft\Internet Explorer\Main\Use FormSuggest"
  23. sV3="HKCU\Software\Microsoft\Internet Explorer\Main\FormSuggest Passwords"
  24. sYES="yes"
  25. sNO="no"
  26.  
  27. 'Called when the Plugin is started
  28. SUB Plugin_Initialize  
  29.   i=RegReadValue(sV1)
  30.   if i=sYES then SetUIElement 1,true
  31.  
  32.   i=RegReadValue(sV2)
  33.   if i=sYES then SetUIElement 2,true
  34.  
  35.   i=RegReadValue(sV3)
  36.   if i=sYES then SetUIElement 3,true
  37. END SUB
  38.  
  39. 'Called when the Plugin should validate the Data the user has entered
  40. SUB Plugin_CheckData(ElementIndex)
  41. END SUB
  42.  
  43.  
  44.  
  45. 'Called when the Plugin should apply the changes
  46. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  47.  Call Wrt(1,sV1)
  48.  Call Wrt(2,sV2)
  49.  Call Wrt(3,sV3)
  50.  Call Restart()
  51. END SUB
  52.  
  53.  
  54. Sub Wrt(ITM,VAL)
  55.  b=GetUIElement(ITM)
  56.  if b=true then
  57.     Call RegWriteValue(VAL,sYES,1)
  58.  else
  59.     Call RegWriteValue(VAL,sNO,1)
  60.  end if
  61. end sub
  62.  
  63.  
  64. 'Called when the Plugin is about to be removed from memory
  65. SUB Plugin_Terminate
  66. END SUB
  67.  
  68.